;update PGS.SAL with latest product price list before release of a patch
;TEST TO SEE IF THEY HAVE BOTH ARCHIVES
(if (<> (exists "PGSpatch.LHA") 1)
(abort "You did not download the PGS3H2.LHA archive. Download it and decompress it to the same directory as you decompressed this archive before continuing.")
)
;SEE IF PAGESTREAM3 AND SOFTLOGIK ARE ASSIGNED AND EVERYTHING EXISTS
(set PGSdest (getassign "PageStream3" "a"))
(set SLdest (getassign "SoftLogik" "a"))
(if (OR (= PGSdest "") (= SLdest ""))
(abort "PageStream3: and/or SoftLogik: are not assigned. You must properly install PageStream3 before applying this update patch.")
)
(set @default-dest PGSdest)
(if (<> (exists "PageStream3:PageStream3") 1)
(abort "PageStream3 is not in the PageStream3: directory. You must properly install PageStream3 before applying this update patch.")
(message ("\n\nThis patch will update your PageStream3.0g hard drive installation to version 3.0h.\n\nYour original PageStream3 disks will not be modified by this update.\n\nYou MUST have 3.0g installed to use this patch."))
(set install_mode
(askchoice
(prompt
"\nSelect an installation option.\n\nChoose `ALL' if you have a full PageStream3 installation. Choose `ONLY' if you have a custom or minimum PageStream3 installation.\n")
(choices "Install ALL improved files" "Update ONLY the currently installed files")
(default 0)
(help
"\n\nThe ONLY option will check to see if a file exists before copying the new one to your hard drive. Thus, if you deleted the HP.printer driver because you didn't need it, the new one will not be installed.")
(prompt "\n\nDo you want to install the new default color palette file?")
(help "The new default color palette file has more colors than the previous file. If you have already added colors to your default color palette file, you should skip this step.")
(choices "Yes" "No")
(default 0)
)
(run "ram:lhex >NIL: <NIL: -qfw=PageStream3: x Colors.LHA")
(run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Fonts/StandardFonts x FM.lha")
;UPDATE FONT PATHS
(if
(askbool
(prompt "The PageStream3:Fonts/StandardFonts path must be updated with the Font Preferences requester. If you know how to do this, click on \"No, I'll do it\"; otherwise, click on \"Do it for me.\"")
(help "It's faster to do it yourself if you know how. Doing it automatically will cause all of your font paths to be updated the next time you run PageStream3, which can take a few minutes. You must do it yourself if you don't let PageStream do it automatically.")
(choices "Do it for me" "No, I'll do it")
(default 0)
)
(
(textfile
(dest "t:PageStream3.prefs")
(include "PageStream3:PageStream3.prefs")
(append "UPDATEFONTPATHS TRUE\n")
(safe)
)
(delete "PageStream3:PageStream3.prefs" (safe))
(copyfiles
(source "t:PageStream3.prefs")
(dest "PageStream3:")
(nogauge)
)
(delete "t:PageStream3.prefs" (safe))
)
)
)
)
(delete "FM.LHA" (safe))
;UPDATE LIBS
(working "Installing Updated Libraries...")
(run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Libs x Libs.lha")
(delete "Libs.LHA" (safe))
;UPDATE TIPS
(run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Help x Tips.LHA")
(run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Effects x Sharpen.LHA")
)
(delete "Sharpen.LHA" (safe))
;INSTALL SAMPLE TEMPLATES
(if
(askbool
(prompt "\n\nDo you want to install samples of the\nDirectTemplates package?\n\nThey will be installed in your PageStream3:Documents/Templates directory.")
(help "DirectTemplates is a collection of 488 templates for PaperDirect® papers. If you would like to examine fourteen samples, click on Yes and then open them in PageStream3 after installation is complete.")
(choices "Yes" "No")
(default 0)
)
(run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Documents/Templates x Templates.LHA")
)
(delete "Templates.LHA" (safe))
;UPDATE HELP
(if (exists "PageStream3:Help/PGS.HEL")
(run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Help x Help.LHA")
(message "\nYour PageStream3.macros file has been renamed to PageStream3.macros.bak. If you have added your own macros to PageStream3, you will need to append them to the new macros file.\n\nRefer to page 339 for more information.")
)
)
(working "Installing Updated Macros...")
(run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Macros x Macros.lha")
(delete "Macros.LHA" (safe))
;UPDATE PAGELINER2
(if (exists "PageStream3:PageLiner")
(
(working "Patching PageLiner to 2.0e...")
(run "ram:lhex >NIL: <NIL: -qfw=ram: x PLpatch.LHA")
(message "NEW!\n\nThe new TrueType Font Engine allows you to use TrueType fonts with PageStream3! Now available separately for $25.\n\nGary's Effects (12 new effects for BME) is now available separately for $25.\n\nDirect Templates for PaperDirect® papers is now available separately for $30.\n\nCall 1-800-829-8608 (314-256-9595) to order!")
;WARN TO REBOOT
(message "\n\nIf you have already run PageStream3 without turning off or rebooting your computer, you should reboot your computer after this installation is complete.")
